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Sobre los autores 


Scott Vincent es un programador experimentado en Código 
Máquina. Habitualmente estudia ordenadores en la Universidad 
de Sheffield; Scott tiene publicados gran cantidad de libros 
sobre Código Máquina por conocidas casas de software. Gran 
parte de los libros que ha escrito, han sido publicados por 
Interface y Virgin Books. 


Clive Gifford tiene aproximadamente 20 libros editados y 
escribe con frecuencia para un número de revistas de 
ordenadores, incluyendo Home Computing Weekly. Sus títulos 
publicados incluyen The Amstrad Programmers Reference 
Guide (con Tim Hartnell como co-autor), Using Computers in 
Education y On-Line With Your Computer. 


Unidos, los dos autores han trabajado en varios proyectos, 
incluidos bastantes libros de la serie Games for Your... 
publicados por Virgin. 


Los autores desean agradecer su colaboración a las siguientes 
personas: Dave, Dickie, Grannis, Lorraine, Simes y Stuart. 
También agradecen a Alan y Sue Baggs su ayuda con el 
préstamo de equipos, así como a John Brown por su acuerdo con 
todo el proyecto. 


Introducción de los autores 


Debido a su relación prestaciones/precio, la gama de 
ordenadores AMSTRAD no tiene igual en el mundo del Home 
Computer. El BASIC suministrado con los equipos AMSTRAD 
está escrito por Locomotive Software y es excelente, pero no 
hay BASIC que pueda igualar la velocidad de un programa 
escrito en Código Máquina. Este lenguaje tiene también otras 
ventajas. Un programa bien escrito en Código Máquina ocupa 
mucho menos espacio en la memoria; aún más, pueden 
escribirse rutinas para ejecutar tareas imposibles de realizar a 
través del BASIC -como lo demuestra la disponibilidad del 
sintetizador de voz y nuestra velocidad de cassette más rápida. 


Sin embargo, el Código Máquina tiene desventajas. Es tedioso y 
lento de escribir, no tiene facilidades para comprobar errores 
len caso de error en el programa, perderemos el control del 
mismo) y, por supuesto, para escribir cualquier rutina es 
necesario estar familiarizado con él. Para muchas personas esto 
es demasiado complejo y el Código Máquina semeja los vestigios 
de un dios, demasiado difícil de aprender. 


Este libro es para aquellas personas que son incapaces de 
escribir Código Máquina pero que escriben programas en BASIC. 
Hemos tratado de escribir rutinas de todo tipo: gráficos, sonido, 
conservación de memoria, recuperación más rápida desde el 
cassette y utilidades. Todo ha sido suministrado en la forma de 
un cargador BASIC, una lista en Ensamblador y una descripción 
detallada del uso, y en algunos casos, un programa de 
demostración. 


- Esperamos que este libro sea una ayuda para aquellos 
programadores que todavía no se han introducido dentro del 
complicado Código Máquina, o para aquéllos que, habiéndolo 
hecho, han tenido problemas o no han realizado las mismas 
rutinas que aquí les ofrecemos. 


Feliz tecleado. 


Clive Gifford 
Scott Vincent 


Londres, 1985 


Reposicionador de texto 


Esta subrutina cambia una cadena de caracteres de la posición 
superior a la inferior. El programa utiliza los primeros 
caracteres gráficos definibles por el usuario (User-Definable 
Graphic, UDG) por lo que habrá que tener en cuenta dos puntos. 


1) , Asegurarse que al menos hay un carácter UDG 
disponible; el número disponible puede ser cambiado 
con el comando SYMBOL AFTER. 


2) Asegurarse de que no se desea utilizar el primer 
carácter UDG disponible; si Vd. desea emplearlo, 
haga entonces SYMBOL AFTER, 1 más bajo. 


El formato para llamar a esta rutina es el siguiente: 
CALL 40000, X, Y, 0 AS 


X e Y son las coordenadas donde será impreso el primer 
carácter. Como la cadena será invertida, la impresión de la 
misma se hará en la pantalla de derecha a izquierda. Esto debe 
tenerse en cuenta al especificar las coordenadas. X e Y pueden 
ser cualquier integer o variable numérica, siempre que estén 
dentro de los márgenes de la pantalla. Según lo anterior CALL 
40000, a, b, GAS tiene el mismo efecto que CALL 40000, 5, 9, 


e pS. 


La cadena conteniendo los caracteres, puede ser cualquier 
variable alfanumérica (string = variable) pero no una serie de 
caracteres encerrados entre comillas ("). Por ejemplo, CALL 
40000, X, Y, "HELLO", (O AS no trabajaría, pero esto 
difícilmente es un problema. A$ = "HELLO": CALL X, Y, QU AS 
tendría el efecto deseado. 


El signo (O permite a la rutina pasar una variable alfanumérica 
desde y hacia Código Máquina, siendo una característica muy 
útil para el programador que se inicia en esta modalidad. Esta 


rutina trabajara en los tres modos de screen (pantalla) que tiene 
Amstrad. 


Bo :00/66:44 
E TS, BE. lA, ED, cd, 
EN 18,Fi., 
AE, ¿EE 


ORG. 46008 
: DEFL 4 
LóÓ Lot 
LO HL 
LO A, 
E 0 ñ 
ó FEET Z 
0 INC HL 
é LO E, CHL> 
0 INC HL 
0 
ó 


OOSEGa 
 DOAA 1 


Mr 


ER] 


E PZA poa 


LO 0, ¿HL 
LO LOCIVED) 
LO HC lx+do 
LO B.Á 
NZTCHE PUSH BC 


2d 
“cdo DIEGO 
2250 00604 
9053 47 0 
ii d 
+L3S ES 01 PUSH HL 
9056 COPEBB 0170 CALL CURSOR 
¿LoS 1A 0200 LO A,CDE> 
“LA CDédel 07160 CÁLL INYCHE 
*csD 12 0220 INC DE 
YE El 0730 POP. HL 
SESF 25 0240 DEC OH 


A 


a a a 


RS 
A 
So 


LEAL Ca ca na 
a 4 EA EA a 
A 


COÁASBE 


mm 
AN 
Ln 


AR E 


ALEA 
38 
TT 
4 HN 
E 
cn 


as 


cn 
A] 


O E 


TY] 


a e e a a AA 
5 


AR O 
A 


a 
E] 


e 
a 


A at aa 


TXTOUIT 


ábD? 


30 NETBYT 


NATBIT 


POR 
DIRNZ 


RET 


CC PLISA 
¿lx DEFL 


CEFL 
DEF 
DEFL 
DEFL 
CÁLL 
EX 
LÁLL 
LO 
INC 
LINZ 
PUSH 
CALL 


LO 


EET 
END 


Br 
NETCHE 


Ruan 
dBDY 
SEBA 
MATE IX 
TE. HL 
TÁBLE 


L 
NZ ,NXTEYT 
ROMDIS 

AF 

TTOLT 

DE 


RSX Sound (Sonido RSX) 


Este sorprendente programa te proporciona un conjunto de 
comandos similares a los que pueden encontrarse en el 
ordenador Oric. Para aquéllos que no estén familiarizados con 
las particularidades del Oric (que pueden ser el 99 por ciento de 
los lectores), diremos que una de sus excelentes características 
era la predefinición de sonidos. Si escribías en BASIC el 
comando ZAP, obtenías un sonido "ZAP"; asimismo, si tecleabas 
EXPLODE, obtenías el sonido más real de una explosión. 
Obviamente, estas facilidades ahorraban al programador gran 
cantidad de tiempo. Muchos de los listados de Oric hacen uso de 
estos útiles comandos. 


Nuestra rutina crea para el Amstrad unas posibilidades 
similares. Seis sonidos (dos más que en el Oric) han sido 
predefinidos, todos los cuales consideramos serán muy útiles; 
principalmente en programas de juegos. Después de rodar el 
programa cargador en BASIC, deberás ejecutar CALL 40000 
para inicializar la rutina. 


A partir de ese momento, dispondrás de seis nuevos comandos 
en el BASIC. Estos han sido creados con la ayuda de la ROM que 
tiene nuestro Amstrad, la cual permite que puedan crearse 
nuevas palabras len el BASIC) mediante una rutina conocida 
como RSX. Estos seis comandos son: 


¡ EXPLODE 
¡| PING 

| SQUELCH 
¡ ZAP 
¡ALIEN 

! SHOOT 


La barra vertical que precede a los nombres, es parte de las 
características de RSX y es el carácter localizado en la misma 
tecla que 'a* (a la derecha de la 'P'). 


Feliz "zapping", "squelching", y demás. 
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Caracter ampliado por 8 


Esta rutina transforma tu pequeño e insignificante carácter de 
38 por 8 pixels en un monstruo 3 veces mayor -de aquí el 
imaginativo título. La rutina es, efectivamente, bastante simple 
de escribir. Lo que hace la rutina es, en efecto, tomar el 
carácter especificado, examinarlo línea a línea y allí donde un 
pixel contiene el foreground (primer plano) color, reemplazarlo 
(el pixel) con el carácter 143 (CHR5(143)) que representa un 
bloque sólido. Esto hace que el carácter impreso sea 8 veces 
más grande que el normal. Hábil, ¿eh? 


Esta rutina acepta el siguiente comando: 
CALL 40000, X, Y, CHAR, Pl, P2 


X e Y son las coordenadas superior-izquierda desde donde será 
impreso el carácter magnificado; CHAR es el código ASCII 
correspondiente al carácter que vamos a ampliar; Pl y P2 
controlan los colores de la mitad superior e inferior del 
carácter, respectivamente. Con esto es posible obtener un color 
diferente en cada mitad, creando un sensacional efecto. 


La siguiente rutina de demostración imprimirá dos caracteres, 
'GO' en Mode 0 con sus mitades en diferente color. Para 
cambiar los colores, simplemente pulsa la barra espaciadora. 


10 MODE 0: CLS 

20 FOR T =0TO 25 
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Caracter ampliado por 24 


Esta es una variación sobre un tema. En lugar de poner un 
carácter 143 (CHR5S(143)) por cada pixel activado, esta rutina 
permite que en su lugar sea puesto un extravagante bloque de 3 
por 3 de estos caracteres, con lo cual creamos un carácter 3 
veces mayor que el anterior y 24 veces mayor que el original. 
Obviamente, el efecto de la rutina se verá limitado si se usa en 
Mode 0, donde únicamente hay 20 columnas a lo ancho de la 
pantalla. 


Como puede verse en el formato mostrado abajo, la rutina no 
tiene otra diferencia (para su uso): 


CALL 40000, X, Y, CHAR, Pl, P2, P3 


Mediante la 'P' extra, conseguimos una mayor diferencia en el 
color del carácter. Existe una serie de posibilidades para usar 
este color extra, nosotros hemos decidido usarlo de la siguiente 
manera. Cada línea del carácter (ampliado) tiene una longitud 
de 24 caracteres por 3 de alto. El color de la primera línea de 
este rectángulo (24 caracteres por 1 de alto) es siempre 
adjudicado por P1, la segunda por P2 y la tercera por P3. 


Probablemente, es más fácil mostrar esto en un diagrama, tal 
como el representado a continuacion: 
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Lector de cabeceras 


Esta corta rutina en Código Máquina, en conjunción con un 
programa en BASIC, te permitirá obtener los detalles que 
necesites sobre un programa grabado en cassette. No es 
necesario que grabes completamente todo el programa; la 
rutina únicamente necesita la cabecera de donde obtiene los 
siguientes parámetros de gran utilidad para identificar el 
programa: 


Nombre de archivo (File Name) 

Número de bloque (si el archivo es más largo de uno) 
Especifica si es el último bloque de un programa 

Tipo de archivo (File Type, esto es, BASIC, binario o ASCII) 
Especifica si el programa está protegido 

Longitud de los datos 

Localización de los datos 

Longitud total del archivo (File Length) 

Dirección de entrada (únicamente en archivos binarios) 


En esta rutina no es necesario el comando CALL, ya que existe 
un programa en BASIC ocupándose del Código Máquina. La 
rutina lee la cabecera del programa, poniéndola dentro de un 
buffer de 23 bytes especialmente creado para ello. El Código 
Máquina devuelve entonces el control al programa en BASIC, el 
cual examina el buffer (mediante el comando PEEK) mostrando 
en la pantalla las diferentes informaciones descritas 
anteriormente. 


Puede que te resulte difícil encontrar inmediatamente un uso 
para este programa, pero los de este tipo son muy populares. 
Los paquetes de software que se anuncian como "rompedores de 
programas" y que permiten introducirse dentro del software 
comercial siempre tienen entre sus programas un lector de 
cabeceras (Header Reader). Otro uso para este programa es en 
aquéllos que has grabado en el cassette, pero te olvidaste de 
documentar (sí, esto es algo que nos ocurre a todos, sobre todo 
a las dos de la madrugada, recién acabado nuestro programa 
"mega-bytico"). Con esta rutina podrás obtener toda la 
información concerniente al programa que grabaste, sin tener 
que volver a cargarlo de nuevo. 


23 
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1 1 LECTOR CAÁRECERAS 
106 SYMBOL AFTER 2534: MEMORY a SYMBOL 
AFTER 240 
20 FOR p=d466649 TO dagas 
36 EEAÁD aF:iPOEE n.VALI*E'"+ad) 
A NEXT 
LA Mo 
28 LOCATE 14,12: PEINT'"Comienza la cinta” 
26 CALL 40000 
CULS:FREINT 
er=PEEKd6673071buff=40051 
199 1F er=253 070 150 
119 1F er=6 THEN FEINT*=ESCARE*" ELSE 
INT"=TAFE ERECRE=" 
1:06 END 
pe PRINT "programa: 
S=buU FA 
o SENT CHEFCFEER (001 
Sl 1F PEER ¿3208 AND =Zbupr+1a 60 
150 
Fé FEINT 
3 aASPEEECbuftT+23)01b=REEE Curt 1 
IF az256 ÁND b326 GOTO 246 
PEINT¡FPRINT*bloque:r*¿PEEECbufft+liada 
IF az?6 THEN FEINT" primer bloque”: 
¿20 TF b226 THEN PEINT*(04)1timo bloque”; 
(38 FEINT 
49 FRINTIPEINT*tipa programa: *; 
n=FEERCbuff+15) 
IF n=8 THEN PEINT*BASIC": 
IF n=1 THEN FEINT*EINARY":; 
IF n=2 THEN PEINT*SCEEEN IMAGE! : 
IF n= THEN FEINT'ASCII": 
; IF FEERibuff+230350 THEN PEINT" (pro 
tegidoa" ELSE FEINT 
310 PEINT:¡PEINT*direccion datos:1* PEER: 
ChuPf+2104+ ZOO PEER Cbufr+ZZ0 
320 PFRINT:FEINT*lonaitud datos:*:FEEK 
buff+120+ 20 PEEK (buff+20) 
330 IF ni21 GOTO 23/98 
3409 PEINT:FEINT"introduce direccion:”: 
3598 nn=FEEKCbuff+2d I+D PEER Chu 270 
360 1F nn=9 THEN FEINT" INCOMPLETO" ELSE 
FEINT an 


3/8 PEINT:PEINT*lonaitud total: 

EEE Cbuff+2d1+256=PEEK (buff+25) 

358 LOCATE 3.125:FEINT*Fulsa cualquier tez 
para la siguiente cabecera 
28 WRILE TINEEYE="":UEND 

0 GOTO 54 


Is 


a 
0 


410 DATA 21,72,90,11,10,00, ON Al 
420 DATA EC,F5,CD,03,BB,F1,38 

430 DATA 9C,C9,SE,FF, 2.090,23 

¿40 DATA SF,9C,34,85 CES a728.08:3 
450 DATA 5F,9C,E4,0 3F,32,35,90 
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LECT CABECERAS 


ORG. 40009 
DEFL BCAiH 
DOEFL 9BRBé=3H 
2040 21730 edo LO HL,ELFFER 
“ca3 111090 9659 LO DE.Za 

dei GEZE 06050 LO ALZA 
¿Cds COAlBE 9076. CALL ECSEFEAD 
“dB Fa 9030 PUSH ÁF 
“2d COSER 6070. CÁLL EMEES 
01096 FF AF 
$118 JE E, DE 

PEL 01:39 LO CEREDRO,A 

a 0130 FET 


AY a ay +47 
A E 


E 


ÓN 
a] 


pd Bo E 6149 0 LO AL ZaO 

SL 0150 LO (ERFORI,A 

E = 0150 LO 4,0 

9050 328F9C 0170 LO (PETECTI,A 
60 = 


91:70 En A, (BUPFER+13) 


0170 BIT 0,4 


2d 
EA= 0700 JE Z ¿NOPEOT 
Lea 0:10 LO. (PETECTI,A 


Leo E 0220 NOPROT AND id. 
SAL CB3F 02730 SEL AÁ 


a] 
len e! PUES 
UI 
= 
m 


“0 
CI 


HEROE 02d0 LO. CRLUIFFER+1IZI,A 
25 


Cr 
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Impresión de cuatro caracteres 


Si deseas un bloque de caracteres impresos formando un 
cuadrado (particularmente usado en gráficos definidos por el 
usuario, UDG), entonces ésta es la rutina que buscabas. 
Rápidamente y sin esfuerzo, esta rutina pondrá en la pantalla 
un bloque de caracteres. 


El formato es el siguiente: 
CALL 40000, X, Y, C 


X e Y son las coordenadas correspondientes a la situación del 
bloque en la pantalla. X puede estar en cualquier posición entre 
O y 639, mientras que las posiciones para Y estarán entre 0 y 
399. Observa que el tamaño del bloque limita la posición más 
alta de estos márgenes, aproximadamente en 20. Las 
coordenadas X e Y corresponden al pixel de la esquina superior 
izquierda del bloque de caracteres. 


C corresponde al código ASCII del primer carácter, 
correspondiendo los otros tres a los siguientes códigos dentro 
del ASCH. Esto es extremadamente limpio y útil para la 
creación de gráficos definidos por el usuario (UDG) donde a 

menudo se utilizan caracteres diferentes para cada una de las 
partes de un bloque más grande. 


INFRESION CUATEO CARACTI 
O SYMBOL AFTER 2061: MEMORY 22771 z 
AFTER 240 
20 FOR n= TO 46945 
READ 2 PORE n+VALI"E"+ar) 
NEXT 


DATA 

DATÁ 5 
9 DATA CO,CO,BB, 00,05,€ 
50 DATA € +9 0c B,FC+BB.C 
+2 DATÁ 3E,10,7B,350,20,FC 
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061 ; IMP. dECARÁC 


20d0 es18 ORG. 469068 

EBCa 202% ASECUE DEFL 9BBC6H 
BECA 0630 MOVABS DEFL $BECSH 
aeFr 0046 GEÁCHE DEFL 6BBFCH 


+Cdé ondEsó 6056 LO ode 
22d2 DDAEOz dazó LO Latla+z 

E A OS E LO Hat lz+ Ex 3 
“tas DOS EQ4 Lo Estlzr+do 
STdrc Dos J a LO O, (1145) 
“E DS. 6116 NETÉHE PUSH CE 

Sc ES $130 FUSH HL 

“CS Es 2134 PUSH EC 

“cod COCoBE 61460 CALL MOVABS 
alar 51 01530 POP. BC 
SLU Te 120 Lo á,E 

El ac 6170 INC E 

a ES ó130 PUSH BC 

SC5B COFCRBB 6178 CÁLL GEACHE 
E E 0:00 POF.- BE 

SL YE 9210 LO At 

E de Ed: INC E 

el ES FUSH BC 

SLáz COFCBR CÁLL GRACHE 
Ha 01 SN 

2lóád El POP HL 

Car 01 POP dE 

226 3El0 0 LO á,la 
GLAA SB ¿220 NEYWEOA DER HL 

2C64B =30 0396 DEC Á 


«7 
a 


Á 
E 
3 20FL 010 AE NZ, NEYEOL 
E 10E1 030 DUINZ NATCHE 
or: e 


o 
A] 


Inversor de pantalla 


Esta rutina rota la pantalla 180 grados independientemente de 
cuál sea su posición; esto hace que la parte superior se 
convierta en la inferior. Unicamente trabaja en Mode l, a pesar 
de lo cual puede ser de gran efectividad, como muestra nuestro 
programa de demostracion. 


Para acceder a esta rutina, simplemente escribe: 


CALL 40000 


INVERSOR DE PANTALLA 

SYMBOL AFTER 256:MEMORY 29999: 3YMBOL 
. cdb 

FOR n=40000 TO 4o1as 

READ afiPORE nm, VAL("2+a3) 

NEXT 


208 DATÁ 21,0%, 

20 DATA 

vo DATA 

20 DATÁ 62 : go 

+0 DATÁ 06d4,0F,CB.04,10,FB,72<,D01,12,15 

108 DATÁ 26,04,14,14,E6,07,20,9d, 14,05 
119 DATA 
1:26 DATA 4 iS 
138 DÁTA E1,01,74,C4,023,57 
ido DATA 74,D6,40,37,7B 

130 DATA 14, 1A,E5,07,20 MS 
150 DATA TC,06.,03,07,E6,30,FE,33 
110 DATÁ 1C,C6,40,57,70,06,50,6 

1308 DATÁ pd: . 
10 DATÁ 90,20,36,09 
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9001 ; INYE FANTALLA 
| 0002 ; 
20:40 0019 ORG 40090 


30 


620 CHEPOS 


6100 
a116 


1468 WNXTLIN 


0 NXTEYT 


INVERT 


0239 EOTATE 


óddo 
4d50 
bd0 
vd70 
2430 
9dv6 


OEBTOR 


ERA 
CINE 
LO 
EECA 
ERC 
CLINZ 
Lo 
FOFP 
Lo 
INE 
JE 
INC 
LO 
AND 
JE 
LO 
=SuB 
LO 
Lo 
DEC 
o 
HE 
Lao 
DEC 


A a e Dn a a an Ni aa 


LOáBS 0 


HL, 


L. CHORROS 


AL 


Ast 
= 
dl 


INWERT 
Ed 


o 

EDTATE 
(HL, O 

DE 

(DEJA 

E 
NZ,DEBTOE 
a 

á.Ol 


7 


NZ, | DEBTOR 


HLB TOR 


Á 
LE 
Á 
NZ, 
AsH 
H 


31 


32 


SCBF 


A 


$370 
9700 
0719 
0710 
ay 
0vd0 
07750 


050 


6 HLETOR 


30 DELNOR 


«HLB TOR 


NZ, DELNOE 
AD 


E,Á 

NC, ELA 
o 

A,D 

NZ. DELNOR 
A,D 


Oia 
Ti 


J> 


AZ + HULK 


Dd TO e El CN TO Te 


pe 
E] SE] 


¿ HLL.NODE. 


. HLLAIOIE 


HLLAORE 


C 
NZ,NXTLIN 
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Copiador de texto 


No hay gran cosa que decir sobre esta rutina, excepto que puede 
aplicársele la máxima que dice "lo pequeño es bonito". Esta 
rutina puede "volcar" el texto de la pantalla a una impresora 
conectada a tu Amstrad. 


Esto es útil en gran número de situaciones en las cuales copiar 
directamente una pantalla llena de números o datos, es mucho 
más fácil que alterar tu programa con cientos de PRINT+*3s 
para sacar cada una de las líneas de texto a la impresora. Con 
esta rutina obtienes al mismo tiempo que los datos en la 
pantalla, una copia de esta pantalla en la impresora. 


Para usar esta rutina, únicamente escribe CALL 40000, después 
rueda el programa del cual quieres sacar copias de la pantalla. 


e COPTÁDOR DE TEXTO 

16 SYMBOL AFTER Co rMERODEY 322 

AFTER 2d0 

¿0 FOR pn=46069 TO debtd 

50 FEÁD afFIFOKE nm .VÁLI*E"+ad5 
NEXT 


50 DATA 2E,01,C0,17,BC,00,04,05,26,01 

60 DATA ES,CO,75,BB,E1,0D0,60,BB,CD,2E 

0 DATA EO,38,FB,C0,31,80,24,10,ED,20 

50 DATA 5E,00,C0,2E,PB0,33,FB,C0,31,ED 

50 DATA 5E,04,CD0,2E,B0,32,FB,C0,31,B0 
o DATA C1,00,20,01,0> 
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0001 :; COPI TEXTO 
0002 ; 
+10 0010 DEG. 40000 
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6620 CHELIM DEFL €Bc:1 7H 
26308 CUESOR DEFL 6BBTS 
6640 FOCHÁE DEFL BB20H 
6650 Bl Y DEFL BOSE 
6058 SENÑOFE DEFL $B0=1H 
dé 2E01 d07o LO L.l 
vcdz EDIFAC 0029 CÁLL EHELIM 
3 AL 9670 INC E 

2 dd $150 INC E 

SO ar 611% NxTEOW PUSH BC 
301601 91:0 LO H,1 

S 06138 NATCEOL FUSH HL 
COB $1d9 CALL CUESOE 
El 6150 FF HL 
COBRE d130 CALL EDCHÁR 
a EOSEBO $178 WAITI CALL BlisY 

A SFE 616 JE CYAITI 
F COs1iB0 CÁLL SENDFE 
2d INE H 

DAINZ NxATEOL 
INE L 

p00 Lo ás, 
ezdo WálT< CALL BUSY 

5 JE DWAITE 
CALL SENOFE 
dE Lo Aa,1% 

0 WÁIT= CALL BlisY 

$ IE CUHAITS 
CÁLL SENOFR 
FOF. Bl 

DECO E 

JE NZ,NxTEOU 
RET 

ENO 


SEU 


CO0=180 
: ESA 
COZERBO 
35FE 
SE COs160 
El 
: 80 
2901 


A A 
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Para completar esta rutina, tenemos una demostración que es 
uno de los procesadores de texto más cortos que hayas visto. 
Este programa acepta inputs de 80 caracteres en screen Mode 
0, dejándolas en la pantalla hasta que es introducido un espacio 
o es alcanzada la parte inferior de la pantalla. Cuando alguna 
de estas cosas ocurre, la rutina Copiador Texto es llamada y la 
pantalla es copiada en la impresora. Pon el código de impresión 
que desees en la línea 1 (línea de doble espacio, énfasis de 
impresión). Este programa puede no ser el Wordstar, pero 
siempre tendrás la posibilidad de mejorarlo por ti mismo. 


i * Añade aqui tous codigos de control p 

ara la impresora 

10 MODE 2: INE 1,26: 1NÉ 0,0:BORDER 1=3:FEN 
1:FAFER 6:LL5 

26 FOR T=1 TO Zd 


30 LINE INFUT Af:1F Aj=" * THEN CALL 40 
00 

40 NEXT 

59 CALL 40000 
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Rotación a la derecha 


Esta rutina desplazará (scroll) hacia la derecha una línea de 
texto, haciendo desaparecer todos los pixels por la derecha y 
reaparecer por la izquierda (creando un efecto de rotación 
sobre la pantalla). o 


Pensando que esta rutina únicamente trabaja en Mode 1, tiene 
un número de parámetros para hacerla completamente flexible 
en su USO. 


CALL 40000, X, Y, N 


X equivale a las columnas, mientras que Y corresponde a la 
línea desde donde comenzará el desplazamiento. N equivale al 
número de caracteres que queremos desplazar hacia la derecha 
en esa línea. Con esto, en lugar de producir desplazamientos 
indiscriminados de grandes áreas de la pantalla, podemos 
desplazar pequeñas porciones de texto o UDGs y bloque de 
gráficos, en juegos podemos mover de manera precisa símbolos 
gráficos. 


Puedes tener un número de áreas de la pantalla desplazándose 
simultáneamente, aunque en este caso es necesario para cada 
una de ellas una llamada CALL. Ya que con un CALL 
únicamente desplazamos un pixel cada columna, es necesario el 
uso de loops para mantener el movimiento de forma constante. 


Aquí tenemos un ejemplo de la rutina desplazando dos áreas de 
la pantalla en Mode l. Antes de correr el programa, llena la 
pantalla con caracteres distintos unos de otros, O escribe 
cualquier descripción. 


10 FOR T = 1 to 500 

20 CALL 40000, 5, 4, 20 
30 CALL 40000, 12, 10, 10 
40 NEXT 


e ROTACION A DERECHA 
10 SYMBOL AFTER 256:MEMORY 239999: SYMBOL 
AFTER 240 
FOR n=40000 TO 400% 
READ af:PORE n,VAL(*2'+at) 
NEXT 
DATA FE.03,00,00,6E,02,20,00,4E,00 
CATA 00,7E,04,81,06,02,67,CD,14,BC 
DATÁ 23,41,0B,20,05,0E,05,ES,C5,CB 
DATA 3E-DE+ES«5D 54,70.20,B7,20,04 
>0 DATA 70,25,E6,07,20,04,70,06,02,67 
100 DATA 14,CB, E, 20504, CB,9F,18,02,CB 
110 DATA DF,CB,5E,23,02,CB,FF,12,10,08 
120 DATA F1,238,04,C8,9E,18,02,CB,DE,CB 
130 DATA 5F,23,02 E 
140 DATA 67,00,20, 


CB,7 
id C1,E1,P0,C4 
En, 
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0001 ; ROTA DERECHA 
b00z ; 
+Ld0 06019 DRG. 40009 
er1iá 0020 CHEPOS DEFL 9BC1IAH 
?Ld0 FEOS 0030 EP 5 
22dz CO 00dé FET NZ 
2243 DOG6E0Z 0070 LO 
E 00:20 DEC 
“Cd DOdE06 0079 LO 
CA DDFE0d 0030 LO 
2240 51 0070 ábo 
20dE 0602 0190 SUB. 
150 ¿7 0110 LO 


+ (1:+0) 
¿11:+4) 


Ta o 


5 
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2051 CDIABO 0120 CALL CHRPOS 
95d 23 


6139 INC HL 
v91d0 Lo BE 
2156 SLá E 
$150 DEC E 
6170 LO 5 
26 NA¿TEOYW FUSH HAL 
0 PUSH BC 
SEL HL 
Lo A, LHLA 
E FUSH AF 
36 NATEYT LO E.L 
LO D,H 
¡MU á.L 
DEDO Lo 
a Á 
JE WNZ, HLOE 
LO ¿H 
DEr 
ántoi 
JE 
Lo 
áco 
: ME 
128 HLORE LO 
a SEL 
AE 
RES 
JE 
6419 SETRIT =ET 
vd: TSTBIT ElT 
046 JE 
dado SET T,Á 
0450 BITOE LO ¿DE3,A 
dd:D DLINZ NXTBYT 
dro POP AF 
2d530 JE CWEAF 
9470 FEES  —=3,tHL? 
05009 JE ENDF TX 
205010 WEAFR SET =3,l 


e Me 


FP 
«LE 
E 
a 
— 


Fed oa Ad o e TI AT 


5/0 ENOFIZ B1T. 3,4 

0370 AE Z ¿FEQGWE TN 
93d0 SET. PS GHLA 
0550 EDOUFIN FOF. El 

0350 POP. HL 

0570 LO a,H 
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0370 
03570 
0200 
0610 


ábo! 
LO 
DEC 
AE 
RET 
END 


Ty 
Te £0 


E 
NZ, NETEOW 


Rotación a la izquierda 


Esencialmente esta rutina es la misma que la última, 
únicamente que el desplazamiento (scroll) se produce hacia el 
lado opuesto. 


La declaración CALL es la misma: 
CALL 40000, X, Y, N 


Esta rutina (como la anterior) trabaja únicamente en Mode 1 y 
también necesita ser llamada desde un loop si se quiere 
mantener el movimiento de forma continua. Para más detalles 
consultar la rutina ROTACION DERECHA. 


OS FROTACIÓN Á IZULITERDA 
106 SYMBOL AFTER 204: MEMORY 3282775 YMBOL 
AFTER <d0 
20 FOR n=40000 TO dob=7 
30 FEAD añiFORE nm. VÁALC*£'+2a%) 
NEXT 
DATÁ FE, 03,28,D00,6E,82,20,00,46 
CATA 23,20,14,2C,00,46,00,C0B,2 
DATA 6E,02,ES5,C05,CB,26,7E,FS, 
DATA 210,20, 0h, 2d, ¿LrE6, 07,20,0 
TÁTA 06,93,67,14,CB,26 38,04, 
100 DATA 15,02,CB, ES Char zo, 02.cb, c7 
110 DATA 12,10,00,F1,32,0d4,CB,46,15,02 
120 DATA CB, E6,CB,67,28 02, ,LB, OS 
130 DATA 70/06, 05,6 A A O 
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ó661 : ROTA TZOUTERDA 
POBZ : 
22d0 dela DEE. deóg0 
BC1iá 9872 CHEPOS DEFL $BC1IAH 
22d FEOS 078 CE 3 
2c2dz2 19 0049 FEET NZ 
“Cds DOsE9Z 9050 LO Lol) 
“Cde 0 0050 DEC L 
“Cd? Dbsded d07Ó LO H,C1lx+dó 
SL En 26530 DER  H 
“CdR COLABE 9070 CALL CHEFOS 
“CAE DOUdib0 0109 LO PB, LIx+00 
“51 CBz6 0115 S5LAÁ E 
E 6170 DEL E 
8120 LO 0,5 
0140 NzTROW PUSH HAL 
9150 FUSHA BC 
0150 SLÁ— (HL 
9179 LO A. HL 
$156 FUSH AF 
0179 NxXTBYT LO El 
067066 Lo DO. H 
0:10 INC OL 
0230 JE NZ, HLOKE 
230 INE 
0:d0 LO á,H 
0250 ano 7 
0250 ME NZ , HLOE 
da? Lo Aá.H 
230 : SUB. E 
0270 LO H,A 
03006 HLOE LO A, CDE? 
0310 SLA  CHL2 
A] AE CSETBIT 
030 FES d,á 
03d0 NE TSTBIT 
0350 SETBIT SET d,ÁA 
0320 TSTBIT BIT. d,CHLO 
07 ME Z,BITORE 
0330 SET  2.A 
0370 BITOE LO ¿OEA 
0400 "LINZ NxTBYT 
0di0 FOF AF 


TI 


dgdz0 
0d36 
vddo 
0450 
vdo0 
vd7ro 
vd30 
0470 
0500 


WEAP 
ENDF Tx 


EQUE IN 


JR 
RES 
JE 
SET 
B1T 
Je 
SET 
POR 
POP 
LO 
ADO 
LO 
0EL 
JE 
RET 
END 


CWRAP 
d, CHLA 
ENDP Tx 
4, CHL) 
A 

, RUE IN 


a o 


E 


¿NA TREO) 
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Fijar velocidad 


Este programa puede ser titulado 'Turbo Load and Save'; puede 
ser utilizado no únicamente para aumentar la velocidad de 
grabación y recuperación de nuestros programas, sino también 
para reducirla -quizás para una copia de seguridad o para 
aparentar que un programa es más largo de lo que es en 
realidad. 


Bien, suficiente sobre cómo y con qué trabaja este programa. 
Para alterar las velocidades, esta rutina hace uso de otra 
localizada en la ROM que tiene el Amstrad. Con el BASIC del 
Amstrad tú puedes únicamente seleccionar SPEED WRITE O, 
(1000 baudios) y SPEED WRITE 1, (2000 baudios). Con esta 
rutina podrás seleccionar dentro de un margen de velocidades 
mucho más amplio. Sin embargo, a partir de cierta velocidad 
cargar y salvar programas se hace cada vez más inseguro. 
Nosotros encontramos, después de una constante 
experimentación, que la velocidad más rápida con fiabilidad era 
de 3300 baudios, pero que esa fiabilidad únicamente se obtenía 
si la carga y recuperación del programa se realizaba en el 
mismo ordenador. 


Dirigirse al 'Firmware Manual', capítulo 14. 125, ofrecido por 
Amsoft para una explicación completa sobre términos tales 
como "longitud  mitad-cero"  (half-zero length) y el 
funcionamiento del cassette. Todo lo que diremos aquí es que el 
formato de esta rutina es: 


CALL 40000, H, P 


H es la longitud de medio cero, pero todo lo que aquí 
necesitamos conocer es que 333,333 (un tercio de millón) 
dividido por este valor, nos dará un valor aproximado de la 
velocidad en baudios. Según esto, un valor de H = 167 nos dará 
una velocidad aproximada de 2000 baudios. 


P equivale al nivel de 'Precompensación' (dirigirse de nuevo al 
Firmware Manual para una explicación detallada). 
Teóricamente, este valor podía situarse entre 0 y 255, pero en 
la práctica valores entre 2 y 100 son más probables. Los niveles 
de precompensación que hemos encontrado más adecuados han 
sido entre 10 y 30. 
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En el caso de no especificar ningún parámetro después del: 
estamento CALL, el ordenador asignará valores de 100 para H y - 
10 para P. Esto da una velocidad aproximada de 3300 baudios. 


Experimenta con esta rutina, ya que para tu equipo pueden 
existir otros márgenes de velocidad distintos a' los aquí 
indicados. 


Ey FIJAR VELOCIDAD 

10 SYMBOL AFTER 254: MEMORY 388215 YMBOL 
AFTER zada 

FOR pn=40600 Té dobxa 

READ añ:¿FOEE nm,VÁL("5 "+at) 

NEXT 

CIAartá 21.4d,00,5E,%4,15 
ciáaTá 0c,FE, 2 co E 00. OO, GE,0Z 
DATA 00,46,03,0D,48,BC,C 


E 
pa 
Pu 
d 
S 


0 
4] 
ó 
Ú 
0 
lo 


dl 
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0001 :; FIJA VELOCIDAD 
0002; 
2040 0010 OR. 40009 
prós 20:20 SFEEO  DEFL 42BL43H 
3240 FE00 0050 CP 0 
dz 2007 0040 JE NZ,GTVALS 
20dd 214d00 0050 LO HL,109 
91d? SEGA 00:50 Lo 4,10 
3Td% 1500 0070 - E CONT 
9CdB FEOZ 0050 GTVALZ EF pe 
29c40 0 0070 FET  NZ 
2C4dE DOYERO 0100 LO A, C1X+0) 
2151 DO4E0Z 0110 LO LACIE 
2254 00édoz 01:06 Lo H, CIx+30 
ala? COSSBr 0130 CONT CALL SPEEO 
S9LC5A [Y 0140 FET 
0150 ENO 


Desplazamiento rápido 
de la pantalla 


Para escribir muchos tipos de programas de acción, así como 
para conseguir excitantes efectos visuales para casi cualquier 
programa, un desplazamiento (scroll) rápido, y sin salto, de la 
pantalla es una de las más útiles adiciones a tu colección de 
rutinas en Código Máquina. 


Una vez llamada esta rutina, puede desplazar toda la pantalla el 
espacio de una línea hacia arriba o hacia abajo. El formato para 
CALL es: 


CALL 40000, C, UD 


C corresponde al color de la tinta que tomará la línea "vacía" 
que aparecerá arriba o abajo, dependiendo del tipo de scroll que 
uses. El parámetro UD define la dirección del movimiento; '0' 
para abajo y '1' para arriba. 


1 * DESPLAZAMIENTO DE FANTÁLLA 

10 SYMBOL AFTER 206: MEMORY 3282215 YMBOL 
AFTER 240 

20 FOR n-=4000% TO do6l3 


30 READ aFi¡PORE nm, VÁL(*2"+2a%) 

40 NEXT 

50. CATÁ FE,02,00,00,d6,00,00,1E,82,CD0 
¿0 IATA 20 /BO/C D,40,B0,09 
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9001 ; DESF PANTALLA 

0002 ; | 
9.40 0010 ORG 40000 
Bczc 0020 ENCODE DEFL 0BC2CH 
Ec4o 0030 HWROLL DEFL 0BC40H 
9Cd0 FEO2 0040 E 
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9C4z 


2Cd= 


91dE 
91d 
Scar 
Scar 


CA 
0bida00 
DOFEOS 
COSER 
COdoBpc 
Ca 


0070 
9020 
067a 
000 
0070 
160 
0110 


FET  NZ 

LO B,(1x+0) 
LO A. Ix+2) 
CALL ENCODE 
CALL HWEGLL 
RET 

ENO 
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La pista de los diamantes 


Para demostrar la rapidez y suavidad de este scroll 
(desplazamiento), aquí tenemos un corto programa con cuya 
ejecución podrás divertirte mucho. Está basado en esos juegos 
en los cuales se desplaza una pista y debemos evitar vernos 
fuera de sus límites. Nuestro juego es más complicado que eso. 
Tú estás viajando a través del famoso Central African Diamond 
Trail (pista o sendero de diamantes del Africa Central) en busca 
de sus escurridizas gemas. El sendero es peligroso y contiene 
muchos riesgos potencialmente fatales -indicados por una cruz 
roja. Los diamantes de suave brillo azul son los que has venido a 
buscar y podrás conseguirlos pasando por encima de ellos con tu 
coche, esto te dará 50 puntos extra. También conseguirás 10 
puntos por cada décima de milla que viajes y el juego continúa 
hasta que te estrelles. 


El juego utiliza el fast scroll (desplazamiento rápido) para 
mover hacia ti la carretera suave y rápidamente. El juego 
también indica la puntuación máxima y la que vamos 
obteniendo. Adelante... ponte a jugar. 
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10 FANDOMIZE TIME:hi=8 
20 Cliisc=013=2+1NT (END: 2d) 1v=10100=x +2 
30 3=3+INTCENDEZd coat 
d0 LOCATE 1.1:FEINT : STRINGE (e, CHREC1430) 
¿STEINGE y,"  ISTRINGE (d0n:—=V, CHEF Cd 
3 
50 IF END38.2 THEN FEN S:LOCATE x+1+INTC 
END=yj,1: FRINT CHEF CIO) 1 FEN 1 
¿0 1F END<O. 15 THEN FEN Z:LOCATE <+1+I1INT 
(RANDeya,120FEINT OCHEFCZZ TOS FEN 1 
vO LOCATE Cr 2 FPREINT" ” 
50 c=c+CINEEY ¿20 =00—CINEEYC12=90 
20 CALL 40990,0,0 
100 LOCATE 15,75: FEINT*FUNTUACION" ="38c0c 
110 t=TE2T(creló-5,04) 
120 1F t=1 OR t=2 G0T0 150 
130 1F t=2 THEN SOUND 1,48,5, Y :sc=sc+ 508 
140 sc=sc+i0:1F se MOO 2300=0 THEN wv=w- 
1 (y=3) 
150 LOCATE es 
160 ==x+INTCEND30 d+ eo 2d a) 
1706 GOTO 46 
Ed CLEGLOCATE 9,10 :PEINT"EOCCCRRERABAASS 
¡SHHHHA LLE 
ó SOUND 1,10890,200,7 
LOCATE 13,12:FERINT"Tu puntuacion? 
1F scezhi GOTO 230 
LOCATE 14,15:FEINT*PUNTUACIÓN MAS 
shitsc 
LOCATE 13,20:FRINT'*FUNTUACIÓN =*;h1i 
LOCATE 4,23: PRINT" Pulsa espacio para 
jugar nuevamente 
2500 WHILE INEEYE<>* "VEND 
¿60 GOTO 20 


E 
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Desplazamiento de bloques 


Esta práctica utilidad puede desplazar una porción de la 
pantalla hacia arriba o abajo. La 'caja' (box) necesita ser 
definida mediante el estamento CALL, asimismo es necesario 
definir el color y la dirección del movimiento; 1 hacia arriba yO 
hacia abajo. 


Cuando se ejecuta el comando CALL, la caja se desplazará 
(scroll) una línea completa. La rutina ejecuta un desplazamiento 
extremadamente rápido. El formato de CALL es: 


CALL 40000, L, R, T,B, P, D 


L corresponde a la posición izquierda, R es la derecha, T 
corresponde a la parte superior y B a la inferior de la 'caja'. 
Esta caja o rectángulo es definida de una forma similar a 
cuando se utiliza el comando BASIC WINDOW. P es el color de 
la tinta y D determina la dirección del desplazamiento; 0 para 
abajo y 1 hacia arriba. 
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E DESPLAZAMIENTO BLOQUES 

19 SYMBOL AFTER 2061MEMORY 37997: SYMBOL 
AFTER 240 

20 FOR n=40000 TO d0031 

30 READ as:POKE n.VALC("£*+a+) 


40 NEXT 

20 DATÁ FE,0%,20,D00,46,00,00,7E,02,00 
60 DATA 5E,€4,00,5E,06,00,54,05,D0,44 
70 DATA €4,10,20,15,25,00,20,BC,0.0,50 
20 DATA BC,C9 
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0001 ; DESPF BLOQUES 
00972 ; 
+Cd0 9610 ORG. do0000 
BEE 0026 ENCOOE DEFL eBCZCH 
Boa 00730 =WEOLL DEFL 0RC38H 
*Ldó FEG% 90de ER A 
+Ldz 10 0050 FEET NZ 
9243 004400 0050 LO B,(1:+0) 
2244 DOTES 0070 LO A, CIAO 
*Ld% DOSEGd 00:50 Lo E, (1+4) 
92d DOG6ERA 0070 LO Lo CIR) 
*CdF D00540S 01009 LO O, CI+ 30 
v0az DOGéDA 9110 LO H,¿11+10) 
Scan 10 0120 GEL. E 
9256 20 0130 DES 
EST? 15 0140 DEL 0 
4.50 23 0130 DEC H 
237 CO2CBC 9160 CALL ENCODE 


905 
SEAL COS6BC 0170 CALL SUEOLL 
E A 0150 RET 


9170 END 
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Rejilla de diseño 


Si tú realizas dibujos en tu Amstrad, o diseñas pantallas de 
texto y gráficos para usar en programas, entonces encontrarás 
que una matriz de rectángulos o rejilla, que cubra la pantalla a 
un toque de botón durante el diseño, desapareciendo 
posteriormente a otro toque de botón sin dejar rastro, ni 
dañando el dibujo, es algo muy útil. 


Bien, esto es exactamente lo que hace la rutina Rejilla Diseño 
mediante el uso de una función especial del Código Máquina 
llamada OR Exclusiva co de forma abreviada XOR 
(extrañamente no forma parte del planeta Zilog). 


La ejecución de CALL 40000 mostrará instantáneamente una 

matriz de 8 por 8 pixels en la parte superior de la pantalla que 

estás diseñando. Esta rutina trabaja en cualquier modo de 

screen y se ajusta de tal forma que contiene muchas más líneas 
en Mode 2 y muchas menos en Mode 1. 


Una segunda ejecución de CALL 40000 eliminará la rejilla de tu 
pantalla, pero dejará 'sin tocar' tu dibujo, esto es debido a la 
característica XOR del Código Máquina. 


La mejor forma de utilizarla es en medio de un programa 
artístico donde esta rutina es llamada apretando un botón 
simplemente. Siguiendo desde este punto, aquí tenemos un corto 
y simple programa artístico en BASIC que te permite realizar 
dibujos mediante el joystick en screen Mode l. Pulsando el 
botón de disparo una vez aparecerá la rejilla, una segunda 
pulsación la hará desaparecer. Estoy seguro que tú eres capaz 
de escribir un Programa de dibujo mucho más complejo; el 
propósito del mío es simplemente demostrativo. 


'La rejilla fue deliberadamente diseñada para 8 por 3 pixels, de 
manera que corresponda completamente con un carácter de 
texto. Esta rutina puede ser usada no únicamente para dibujar 
en programas gráficos, sino incluso para una detallada 
presentación en pantalla de texto o semitexto. 
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e REJILLA DE DISEÑO 
10 SYMBOL ÁFTER 2006: MEMORY 237271: SYMBOL 
AFTER 2d0 
20 FOR n=d6090 TO debs= 
30 READ ad:FOEREE n,VÁL(*2'*+a$) 
40 NEXT 
DATA 3E,01,00,5%,B2,20,11,BC,=C,0E 
CIATÁ 064,CB,21,30,20,FB,3E,01,20, 2 
DATA BC0,11,07,00,4d1,025,21,00,00,01 
DATÁ C7,008,F3,00,.CO, ns E dE 
76 DATA 05,13,10,FD0,C:1,10,EA,: 00 
1099 DATA 29,29,23%9,2B, ab, dd, 21, ,00, 00, TE 
110 CATA 1%,F5,05,25,E5,11,00,00,L.0,3F 
1:0 DATA BCc,E1,06,05,23,10,F0,C.1,01,F1 
130 DATA 10,30,EA,09 
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0001 ; FEJI OISEMO 

00072 ; 
+Cd0 0010 ORG 4090900 
BCca? . 9020 xMOEMOO DEFL 02RcC3H 
ec 11 0030 MODE OEFL 0Bc11H 
Bcc 0040 INEENC DEFL 02H 
BCOSF 0050 SCRHOE DEFL 9BCSFH 
Baz 0060 SOEVER DEFL 6BCazH 
240 =E01 0070 Lo A,l 
20daz COSYBC 00:30 CALL XOEMOD 
2Cd5 COo1iBc 0070 CALL MOnE 
20d8 20 0100 INC A 
2d? 0E0A 0110 LO 10 
0dB CBz1 0120 VIOTH SLA E 
2240 =0 01=0 DEC A 
9CdE Z20FB 0140 JE NZ,WIDTH 
202050 3E01 0150 LO A,l 
TSZ COZCBE 0160 CALL INEENC 
2055 110700 0170 LO DE, 
Ss dl 0150 LO BB, 
20259 T95 0170 NXATVER PUSH EL 
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¿10000 
911.100 
Pal 
a 


9tés Di 


EE 


E po A AA 
A = 


Ti 


Fa do 
= 216000 
A 1E1% 
FS 

as 

ca 

0 ES 
1100090 
id COSFRc 
7 El 


2 COPE 


20 MOVEX 


20 NATHOR: 


9470 
0500 
0510 
0520 
0530 
0540 
0550 
0550 


037 


0330 


MOVE Y 


LO 
LO 
PLUISH 
PUSH 


CALL 3 


POR 
POP 
LO 
INE 
OLINZ 
POF 
DLINZ 
LO 
LO 
Ac0o 
apo 
Acto 
DEL: 
Lo 
Lo 
LO 
LO 


FUSH Á 


PUSH 
PUSH 
PUSH 
LO 
CALL 
POP 
LO 
INC 
DANZ 
POP 
POF 
POP 
1 
JE 
EET 
ENCI 


MOVEX 
Br 
NATYER: 
L,E 
H,0 
HL, HL 
HL, HL 
HL +, HL 


DE,$ 
SEÉEHORE 
HL 

B,3 

HL 
MOVE Y 
Br 

DE 
AF 

E 

NZ, HNxATHOF: 


Explosión gráfica 


Si alguna vez has escrito juegos de acción, entonces te apuesto 
a que a menudo has deseado tener una buena, rápida y 
espectacular rutina de explosión. Reconozco que anteriormente 
a escribir ésta, había hecho muchos intentos en BASIC, pero 
todos carecían del suave desplazamiento y calidad del Código 
Máquina. 


Esta rutina, como podemos ver abajo, es seguida por una buena 
cantidad de parametros: : 


CALL 40000, L, R, T, B, TY, D 


Los cuatro primeros parámetros fijan el rectángulo donde debe 
producirse la explosión. Como podrás comprobar, para obtener 
un buen efecto de explosión, necesitarás un rectángulo de 
tamaño razonable, L y R determinan la posición izquierda y 
derecha del rectángulo en la pantalla, mientras que TyB 
establecen la parte superior e inferior. El rectángulo se define 
de la misma forma que el comando Amstrad WINDOW. 


A través del comando TY podemos seleccionar dos tipos de 
explosión disponibles. '0' selecciona la explosión que cubre 
completamente el rectángulo. '1' selecciona el otro tipo, con el 
cual únicamente hacemos 'explotar' algunos caracteres dentro 
del rectángulo. Si, por ejemplo, tienes una nave espacial 
realizada con dos caracteres dentro de un rectángulo de 3 por 3, 
entonces con la explosión tipo 1 únicamente explotarán los dos 
caracteres; sin embargo, con la tipo 0, 'texplotarán' los 9 
caracteres contenidos en el rectángulo de 3 por 3. 


El último parámetro corresponde al retardo. Las áreas más 
pequeñas explotan antes que las más grandes, luego el retardo 
debe ajustarse de acuerdo con esto. Deberás experimentar con 
la rutina para encontrar el retardo que se ajusta al tamaño del 
rectángulo y al programa. Cuanto más alto sea el valor, mayor 
será el retardo y mas lenta la explosión. 


La rutina no es efectiva cuando se emplea en grandes áreas, 
pero puede trabajar en los tres modos de screen. Para realizar 
la explosión utiliza todos los colores disponibles en el modo en 
que se encuentra. 
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LE EXPLOS TON 
10 SYMBOL AFTER 2O6:MEMORY 3999715 
AFTER 240 
z0 FOR n=40000 TO dézza 
READ ad:POKEE n,VÁL:"E"+at) 
NEXT 
DATA FE,06,00,20,64,8%,D00,6E,94, D0 
IATA « 66/0/20, 22, DD,7E, 03,94, d4F,CO 
DATA 1A4,BC,AF,31,10,FD,47,00,7E,04 
CATA 000, 4E,06,00,91,4F,EB,71,00,00 
DATA 00,7E,02,B7,20,45,05,05,58,085 
2 DATA FS,C05,D5,7E,23,B6,253,0 
CATA 073,21,00, 90,12, 10,2 . , 
0 DATA Es, 07,20, 94, 7A4,06,02,57,10,ES 
30 DATA D1,7A.Cé MIC F1,30,20,05 
A IATA 7A,D6,d0,57,7B,06,50,5F,30,04 
DATÁ 14,74,E6,07,20,0d4d,74,06,02,57 
DATA 00,20,BF,01,201,S3E,0F,FS,C05, e LIS 
0 CATÁ D00,7E,90,30,74,530,20,FC,3E,03 
50 DATA FS,05,D5,78,23,B6,23,CB,74,78 
0 DATÁ 03,21,90,90,EE,46,E2,12,10,20 
CIATÁ 64,14, 7A4,E6,07,20,0d,74,D06,0%3 
DATA ON 
DATÁ 30,26,05,74,06, T,¿TB,L6, 70 
DATÁ 5F.,30,04,14,7A4,E6,97,20,0d,7 
DATA D£,93,57,00,20,80,01,01,F1,3D 
IATA 20,4B,2E,00,00,5E,0d4,DD,6E,06 
DATÁ D0,56,03,00,66,04,10,20,15,25 
DIATÁ C0,4d,BC,00,0%,29,09 
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0001 ; EXP. GRAFICA 

000z ; 
1.40 0019 ORG 40000 
BciA 0020 CHEPOS DEFL 0BL1AH 
206 0030 FOMENA DEFL 0BY04H 
207 0040 EOMDIS DEFL 0B%09%H 
erhb:dd 0050 FILBOxX DEFL 0BCd4H 
Ld0 FEGa 0060 LP E 
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dz 6 povrá EET O NZ 
dz COBABY 6050 CALL EOMENA 
dá ODsERS dosO Lo LL, clxi+ad 
: E DOsbA $100 Lo H,¿11+100) 
22dc 0 1109 EC 
27dD 25 017 DEC 
“0dE OOTFESS 6138 LO 
alad d $140 : SUB 
“laz dE 29150 LO 
Ea CO1ABC 6150 CALL 
Saa AF 4170 OF 
Lar 5 $130 BYTES ADD 
Cas 10FO 910 DIINZ 
SC5á dí 0304 LO 
SC5B DOFEGd 0310 Lo 
SE5E DOdE0a 93720 LO 
Gi 2230 DEC 

Az E edo SUB 

3 aF 0:50 LO 


T - 


, 


A] 
yr 
DeX 
o 
1 
a 


a] 


AN 
E 


EB. 0:60 EX 


TAO > 0 70 de > TO de 


A 
rr 


rm. 


9145 210000 02578 LO ,0 
TAS DOTES BL LO A. TIO 
a 9200 JE ONZ,PARTE 


610 PUSH BL 
9030 FLISH DE 
0330 NTEOW LO AE 
03408 NxTLIN PUSH ÁF 
0350 PUSH BL 
03066 PUSH OE 
0370 NATEYT LO A. LHL5 
03530 INC HL 
0370 DE ¿HL 
OTE 23 0d00 INC HL 
2277 CB? 0d10 BIT  £,H 
9C7B 2803. 9dz0 HE Z + INFEOM 
“C7D 210000 0430 Lo HL,0-, 
E pa 0440 INEDM LO ¿DEA 


a 
¿B B? 0270 DE A 
E 

E 

F 


$. 0430 INC. E 

Eln 0d60 E NZ ¿GOTEBYT 
PL. 0d7 INC 0 

E 9420 LO AO 

?L E 0d70 AND 7 

CES 00d 0500 . E NZ,GOTBYT 
PESA Y 03109 LO A, O 

ESB 0608 0320 SUB. E 

ESO 3 0330 LO D,A 


ON 


A 
AN) 


A 


£1 


E 
qn 
mag rd 
ao 


| 
a] 


a” 
A 
Y 
0] 


“000 


*S 
el] 


eS 
1 


O OE 
Dar 


ed 
ce) 


ME 
mE 


S 
41 


To TO To O 
Po 


A 


A A A A AAA 
O od MATA AA TA CI OI CE ACI DR 


“E 


O 


E E 


Miro 


”, E 
E] 
DN a BE 


E 
47 z 


7 
e 


Y 


Ss 


LAS 


0340 GUTEYT DLUINZ NTBYT 


03530 
0350 
937 

95530 
0370 
0600 


IAS 


<Q a 
A Ad AA a 


“0 


SOS So S>ooSo> 


So 
> 


GAOTRCA) 


o FARTZ 
o FADE 


FPALIZE 


NEWE:CIU 
NEWL IN 


NEWBEYT 


POE 
LO 
Apo 
Lo 
POF 
POP 
DEC 
AE 
Lo 
SUB 
LO 
E 
ácia 
LE 
ME 
INC 
Lo 
áno 
JE 
Lo 
SUB 
LO 
¡1 
JE 
FOF 
PROF 
Lo 


FLISH 
PUSH 
FUSH 


LO 
INL: 


HALT 
DEC 


ME 
LO 


PUSH 
FPLUISH 
PUSH 


LO 
INC 
OR: 
INC: 
2IT 
JE 
LO 


dE 
4.0 
A,3 
o, A 
Br. 
AF 


A 
NZ¿NATLIN 
4,0 

sel 


+ 


Ca GOTECU 


dPoOoZm pora, 


e 
a 


NZ,¿GOTEOU 
A, O 


A, (1:+0) 


“C0D 
“COE 
SCE0 
“CEl 
SCES 
9CEd 
SCES 
“LEY 
SCES 
PCE? 
“LEA 
SCER 
SCEOD 
SUTEE 
22F0 
SEF1 
STFZ 
9CF4 


FA 


“LF? 
3CFE 
LF? 


9CFB 2 


S9CFO 
“CFE 
2000 
2001 
2002 
9004 
2003 
2004 


007 3 
200=S 2 
004 3 


“000 
209F 
012 


Do0sSE0d 
DODGE 
o0s540S 


1410 
10:0 
10530 
1949 
1039 
10560 
1070 
190 
1970 
1100 
1118 
11:30 
1130 
1146 
1150 
11:60 
1170 
11:30 
1170 
1200 
1:10 
12:20 
1230 
1240 
13530 


MESS 


SAS A 


A A 


En LIA LO LO LO LA A 


El 


EM 


FNOBYT 


FNOEOY 


EX 
ANO 
EX 
LO 
INE 
AE 
INC 
LO 
ANO 
JE 
LO 
SUB 
LO 
DLANZ 
POP 
LO 
ábio 
LO 
POR 
PROF 
DEC 
JE 
LO 
SUB 
LO 
LO 
ábo 
Lo 
JE 
INC 
Lo 
ANO 
AE 
LO 
SUB 
Lo 
DEC 
E 
FOF 
FOF 
POP 
DEC 
Ae 
LO 
LO 
Lo 
LO 


DE, HL 
CHL5 

DE. HL 
(DE), A 

E 

NZ, FNDE YT 
úl 

4,0 


NZ, FNOBYT 


ESA 
NC, FNOE OU 
o 

á.O 

N 
ñ 


D, 


IZ, ENDROU 
E 


NZ , NEWER 
ciE 
Br 
AF 
Á 

NZ.,FADIE 

A,0 
E, (1A+4) 
Lo Cit) 
O, (1430 
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9015 DIG66A y CIAL 
Ole 10 
201% 20 
*D1A 15 
2018 25 


o 
Ba 
mao mor 


2010 COdaBo É ILB0 
“MF COSY“Bs CÁL: ORDIS 


POzZ2 EY 


Analizador de pantalla 


Esta rutina realiza una función de las más útiles; comprueba 
que un carácter está situado en una determinada posición de la 
pantalla. Esta función es frecuentemente usada en juegos 
gráficos con movimiento, y algunos home computers tienen una 
instrucción BASIC -tal como SCRN en el Spectrum- para 
realizar la labor de nuestra rutina. 


La rutina trabaja en los tres modos de screen que tiene el 
Amstrad y debe ser llamada con el formato que se muestra a 
continuacion: 


C% = 0: CALL 40000, A, B, O C% 


A y B son las coordenadas de la posición que será 'chequeada' 
(comparada) en la pantalla, mientras que C% es la variable que 
contiene el código ASCII del carácter que reside en la posición 
especificada. C% debe ser un entero (de aquí el signo '%' 
después de la variable) y necesita ser definido antes que CALL, 
de otra forma se generará un error. 


LO,SE,92, cb, Bd, 
20,BB.00,6E,06,D0 
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Impresión de nueve caracteres 


Una rutina anterior, Impresión de Cuatro Caracteres, ha sido 
rediseñada y ampliada para proporcionar un bloque de 3 por 3 
caracteres que puede ser situado en cualquier lugar de la 
pantalla gráfica sin la necesidad de tener que usar TAG y 
TAGOFF, o cualquier otro comando complejo. 


El principio para esta rutina es el mismo que para su 
predecesora. CALL 40000, X, Y, C iniciará la impresión del 
bloque en la pantalla gráfica, las coordenadas X e Y 
corresponden a la parte superior izquierda del bloque. 


Naturalmente, la diferencia principal es el número de 
caracteres en pantalla. C sigue siendo el código ASCII 
correspondiente al primer carácter pero ahora siguen otros 8 
caracteres más. Esto únicamente requerirá un poco más de 
esfuerzo en el planteamiento de tu diseño. 


Como en la primera rutina, el principal uso de ésta es la de 
poder mover con facilidad un grupo de UDGs (User Definable 
Graphic) alrededor de la pantalla. 


IMPRESION Y CARACTERES 
(SYMBOL ÁFTER 206:MEMORY 228212 YMBO 
FOR n=448996 TO de0535 
READ aFIiFPORE nm VÁLE"E"+ad) 
NEXT 


CATA DO,dE.,%0., «DD. SE, /92,00,66,03, 00 
208 DATÁ 323,04, Ha ¿200 ES Lo 
"9 DATA rodó 7, /00,05,CD, FE,EB 
50 CIATÁ EEN * “CD, FL,PB,C1,79,0L 

DIATÁ "ED,  BBICA DEN OLSE/10,28 
100 DATA. 30,20,FC,10/DA,09 
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CO4E0S 


118 Na 


TEHE 
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“La COFCRE 
9ctéc 01 
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16DA 
LT? LA 


IMP 
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DEFL 
GEFL 
DEFL 
LE 
Lol 
LO 
LO 
Lo 
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PUSH 
PUSH 
PLUISH 
CALL 
PROF 
LO 
INE 
PUSH 
CÁLL 
POE 
Lo 
INE 
FLISH 
CALL 
PLE 
E 


INE 


PUSH 
CALL 
PTE 
POP 
PROF 
Le 
DEL 
DEC 
JE 
DANZ 
EET 
ENG 


PCARAD 


46906 
SEBCEH 
P¿RECÉH 
SREFLH 
+0 


a MES 


MOVAR= 
Er 
AE 

E 

Ec 
GERÁCHE 
EC 


Al 


ALHE 


ESA 


a e CO CA 
a 


Ec: 

GRACHE 

Br 

HL 

DE 

4,1 

HL 

NZ., NEWE CU 
NATCHE 


Este pequeño programa de demostración hace rebotar una 
pelota alrededor de la pantalla, mostrándonos la velocidad de la 
rutina Impresión de Nueve Caracteres. Recuerda, cuando 
obser ves la pelota moviéndose por la pantalla, que lo hace a 
través de los gráficos, no del texto. 


SYMBOL 240,0,0,0, 


MEL: 2 
SYMEDL Z 


E ds a a 


MESS 


> 
E 
a] 


di 
a 
m 


SYMBOL 245,0,0,0,09,0,.0,0,0 
SYMBOL 242,6,0,0,06,9,0,0,0 
20 SYMBOL 247,0,6,0,0,0.0,.0,0 
26 SYMBOL 2453,0,0,0,6,06,0,0,6 
100 BORDER 230LS 

110 ==320:0v=200r1a=1lá:ib 
1:30 EntE d0000,=.,v,2:d0 
130 gxox+tary=w+tb 

140 1F 2210 OR 352600 THEN a=-a:S0UND 1,d 


o] 
pola tí 


130 IF. v250 OR v:3%8 THEN b=-b:iS0UND 1,3 
0,3, 7 
1609 GOTO 120 


ms 
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Italicas 


Mediante el comando SYMBOL, es posible crear un conjunto 
completo de nuevos caracteres. Considera, sin embargo, la 
cantidad de trabajo que conllevaría el realizar todas las letras 
mayúsculas, minúsculas, números y símbolos, poniendo cada uno 
de ellos dentro de una matriz de 8 por 8; estoy seguro de que 
estarás de acuerdo conmigo en que este programa es mucho más 
fácil y rápido de usar. 


El formato es: 
CALL 40000, R 


R corresponde a la línea que deseas cambiar a caracteres 
itálicos. Originalmente hicimos que la rutina cambiara toda la 
pantalla, pero vimos que esto reducía su uso y flexibilidad. 
Pensamos también en la posibilidad de especificar la línea y la 
columna, de manera que se pudiese 'italizar' un carácter, pero 
este sistema sería muy lento en el caso de una frase, 
necesitando gran cantidad de accesos a la rutina. El parámetro 
resultante -el que especifica la línea- es lo que consideramos 
como mejor compromiso, este es el tipo de situaciones con las 
que te puedes encontrar cuando escribas tus propias rutinas en 
Código Máquina. 


A diferencia de la mayoría de nuestras rutinas, ésta únicamente 
trabaja en screen Mode 1. Esto es debido a que la rutina accede 
a la pantalla directamente. Los caracteres están inclinados 
hacia la derecha, como en el caso de los caracteres itálicos, 
haciendo de esta manera que una pequeña porción del carácter 
n2 40 se deslice fuera de la pantalla. 
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SYMBAOL 

E 2d6 

2% FOE mn 
39 FEEAD 
NEXT 
CIÁTA 
DATA E 
ATA 3 


7] 


E 
Dn 
1 
Par] 
17 
+0 


1066 DATA 
114 DATA 


120 DATA 
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: «LE, SE 
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O] 
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0001 ITALICAS 
0002 
96109 
0070 
9070 
29da 
0030 
0050 
0070 
d0=ó 
0070 
0109 
o110 
91.0 
6130 


40000 


CHEPOS VEC1AH 


00 MEETS 


TIFF 


NETEOW 
SEFOLL 
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LO 
NATEYT LO 
Lo 
LO 
DEC 
E 
JE 
Lo 
1h 
a70 ano 
Z60d ezdo E 
FE LO 
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ME 
HLOE LO 
SEL 
AE 
RES 
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TB1T SET 
TBiT BIiT 
JE 
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EITOUE LO 
DAHZ 
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5] FOP 
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FEET 
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Letras inclinadas 


Esta rutina tiene mucho en común con la anterior, Itálicas. Ella 
produce la inclinación hacia atrás de todos los caracteres 
contenidos en una línea determinada. La instrucción CALL es 
exactamente la misma que para la rutina Itálicas: 


CALL 40000, R 


La única diferencia es que ahora es la 12 columna en lugar de la 
402 la que pierde parcialmente su carácter. 


: LETRAS as 
18 SYMBOL AFTER 2O%6:1P ci di 
AFTER Zad0 
20 FOR n=dó96%9 TO débs2 
346 EEAD atiFOERE nn ,VáALi*E'"+2%) 
dé NET 
50 0ÁTA BF,! o SN ,008,20,726,06,200,14 


¿9 CATÁ BL,GE. SES. LB, Be, dE, SD 
a DIATÁ 54,20 A, 0 pBr,2b, 0. 
29 DATA 2000610 67,18,0É6.Z e 
+9 DATÁ A7I18)02,0B, EY, EB,664 20 ¡LE 
1099 DATA O DD,CB,A6,El, 6, o. O 

119 DATA YC,C EAN ¿90,Z cae E 
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2061 : LETE INCLINADAS 
2Cd0 6010 ORG. 0000 
ec1lá 0020 CHEPOS DEFL 9BC1AH 
2d0 Br 90536 OF Á 
2Cd1 CE 20d0 FEET Z 
30.42 DUGEOO 909530 LO L,(1X+0) 
22d 0 9068 DES L 
20da 2600 9070 LO H,0 
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LÁALL EHEPOS 
LO e 


$cds COIABO 
SAB 0E97 o 
94D CS 9100 WETROY PUSH EC 

904E ES 0119 SCROLL PUSH HL 

SC4F CBZA 0120 SLÁ — (HL) 

Ci dá 9130 LO B,7% 
0140 WXTEYT LO E,L 
9150 LO 0,H 
0159 INCL 
JE ONZALOR. 
INCH 
LO AH 
AND 7 
JE ONZ, ALOE 
LO AH 


SUB 


p 


Á 
LO H 
LO á 
SLÁ 4 
E e 
EES  d, 
Tr 
áa 
a 


: JE STB1T 
2 SET 
> B1T 


HE 


IN O ACI AU 


a SET BA 

E LO CDEF,A 
Sr DINZ WNETEYT 
a ERES d.CHLA 


POF- HL 


IE HZ, SCEOLL 
Lo AH 

ábD AS 

LO H,Á 

A 

DECO E 

EL me E E NZ,¿NATEOU 
¿Cad CY vdí0 RET 

6d7ro END 
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Copiador inteligente 


¡No, esta rutina no tiene ningún título ni nivel académico, pero 
sin embargo, es mucho más inteligente que esas simples rutinas 
para copiar que andan por ahí! Con esta rutina podremos copiar 
un área de la memoria en otra. El formato es el siguiente: 


CALL 40000, Al, A2, L 


Al corresponde a la dirección inicial del bloque que va a ser 
movido, mientras que L representa su longitud. A2 es la 
dirección inicial donde va a ser copiado. La longitud viene 
expresada en bytes y, por ejemplo, un área de memoria desde 
40000 hasta 40240 tiene una longitud de 241 bytes. 


'Inteligente', tal y como es usado en el título, no es nuestro 
adjetivo preferido, sino más bien un término que describe cierta 
rutina. Una copia simple es aquélla que se limita a transferir un 
área de memoria a otra sin hacer ningún tipo de 
comprobaciones; una copia inteligente permite que el área de 
destino 'solape' la de procedencia. 


Por ejemplo, supongamos que deseas mover el área de memoria 
comprendida entre las direcciones 30000 y 30010, y quieres que 
la nueva dirección inicial esté en 30005, es decir, solapada. En 
esta situación, un copiador simple realizaría la copia 
directamente, perdiendo el contenido de la mitad del área de 
memoria, mientras que un copiador inteligente, comprobará la 
coincidencia de las dos áreas, copiando el nuevo material dentro 
de la nueva área, sin sobreescribir ninguna parte del mismo. 


E COPTADOR INTELIGENTE 

19 SYMBOL AFTER 254: MEMORY 399921: 2YMBOL 
AFTER 2d9 

20 FOR n=40000 TO deozo 

20 READ aRi¿POKÉE n,VALC"2 "tad 


NEXT 

DATA FE,83,20,00,4E,00,D0,46,01,00 
CATA 5E,02,00,56,63,00,6E,04,D00,44 
DATA 93,B7,E5,E0,52,£1,35,023,ED,B0 
DATA 17,0%,EB,07,EB,28,18,E0,B3,09 


Copyright 193 


dnd 


6. FEB 

2 O 

= DOdEés 
2 D00d461 


224% DOSESZ 


L 00393 


OO EGd 
Ob 63 


FIECTURESQUE 


0001 


6010 


G0Ó 
005 
00dó 
0050 


vvoS 


6146 
01530 
6150 
06178 LODEC 


CPT 


Ci 
LF 


LO0 
FET 
ENT 


INTELIG 


40000 


. . o Pool 
e 


a 


EAS ASA 
ges pa de pS y 


A 


- o. 
AA 


PIMAamoa za 


Co LODEC 


HL, EL 
BEE: 
HL: BE 
Be. HE 
HL 
E 


73 


Memorizador/recuperador 
de pantallas 


Esta rutina toma una pantalla (sobre 16K en términos de 
memoria) y la almacena en un lugar de la memoria. 
Posteriormente puede ser llamada para mostrarla de nuevo en 
la pantalla. 


Permítenos explicarte cómo funciona. Para salvar la pantalla y 
transferirla a otra área de la memoria (comenzando, en efecto, 
en la dirección 27392) debemos escribir CALL 43300. Para 
recuperar la pantalla escribe CALL 43812 -todo lo que hubiera 
en la pantalla será borrado y reemplazado por la nueva que 
estaba en la memoria. 


La rutina ofrece una característica adicional. Si utilizas CALL 
43824, la pantalla almacenada aparecerá sobre la pantalla 
actual sin borrarla. Obviamente, puede generarse cierta 
confusión allí donde coincidan dos caracteres distintos 
pertenecientes a las dos pantallas. Sin embargo, las áreas libres 
de una pantalla pueden ser utilizadas por la otra de una forma 
efectiva en distintos tipos de programas, aventuras, juegos, 
negocios, etc. 


Examinando la lista del BASIC, puedes comprobar que en lugar 
de nuestro habitual comando MEMORY 39999 (reservando unos 
cuantos millares de bytes para nuestras rutinas en Código 
Máquina, que comienzan en 40000) esta rutina reserva memoria 
a partir de 27390 en adelante. Esto es, como es natural, para 
permitir que todo el contenido de pantalla sea memorizado y si 
usas esta rutina en alguno de tus programas, deberás incluir en 
el mismo el comando MEMOR Y 27390. 


Todavía hay otro punto que debes tener en cuenta al utilizar 
este programa. Antes de llamar a la rutina con CALL, deberás 
usar el comando MODE debido a que, si la pantalla ha sido 
desplazada (scroll) o alterada particularmente, podemos 
encontrarnos con que la nueva pantalla puede comenzar en un 
lugar erróneo. Obviamente, el mode en que estés actualmente 
determinará exactamente el comando que debes ejecutar. Una 
rutina que esté trabajando en mode 2 debe tener un comando 
MODE 2 anterior a CALL. 
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MEMOSFECU DE PANTALLAS 


10 SYMBOL AFTER 2OIMEMORY 273%0 1 35 YMBOL 


AFTER: 


240 


28 FOR n=43566 TO dond 
26 READ a*:FOKE n VAL" tad) 


dó NEz 


Ral 


29 DATÁ $1,006,40,11,00,22,21,00,00,ED 
¿0 DATA 2B0,07,91,00,46,11,00,00,21,09 
TO DATÁ 56,E0,B9,07,91,00,40,11,00,10 


20 DA 


AS 1.1 


DATA 21, 20,68, LA, AE, 12,12,23,08,78 
Tá é 


“ight 1923 PICTURESQUE 


vs01l ; MEM. PANTALLAS 

DOBZ ; 

618 ORG. d3500 
610046 0070 Lo B:,4066H 


; 1199%B 000 LO DE. 2600H 
. ¿10000 0046 LO HL, 0C0609H 
il EnDEB4A 20070 LOTE 


23 09 0050 RET 


106040 00ró LO 2,4600 
1169006 0030 LO DE, 0C090H 
¿19058 0070 LO HL.£B09H 
EB.8 21090 LOTE > 

3 0110 FEET 

010640 01:20 LO EC,4900H 


33 110000 01:30 LO DE,6c000H 


36 210062 0140 LO HL.2E96H 


1A 0150 LOGP LO A, CO0E5 
AE 0166 A 


2 12 0178 LO (DE, A 


1 13 01:50 INE dE 


Za 0170 INE HL 
0B 9:00 DEL BL 
ra 0:10 LO A,B 
e1 0220 CE | 


 Z0F6 0230 Mr NZ,LODP 
2 E 9:40 FEET 
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Utilidades gráficas 


Este conjunto de utilidades ha sido creado re-escribiendo un 
número de rutinas de las contenidas en este libro, de tal manera 
que se puedan utilizar como una rutina más larga. Con esta 
nueva posibilidad gráfica. 


Esta rutina, una vez cargada en la memoria, permitirá al 
programador utilizar los nuevos comandos en los programas de 
BASIC que el mismo realice. 


Teclear RUN, una vez metida la rutina en memoria, nos 
proporcionara los siguientes comandos: 


' INVERT Inversión de carácter 

; EXPLODE Explosión gráfica 

¡ WRAPLEFT Scroll a la izquierda 

: WVRAPRIGHT Scroll a la derecha 

: PRINTFOUR Print de cuatro caracteres 


Estos nuevos comandos BASIC toman el lugar de los CALL 
40000, pero como es lógico, deben ser seguidos de varios 
parámetros. Para comprobar este punto y tener una mejor idea 
de cómo trabaja individualmente cada comando, revisar la 
explicación dada en el libro sobre la rutina en cuestión. 


Este conjunto de utilidades puede ser utilizado para mejorar la 
presentación de un programa, sea éste un juego, educacional o 
incluso (quizás con la excepción de !EXPLODE) un programa 
comercial. 


: UTILIDADES GRÁFICAS 

10 SYMBOL AFTER 206 1MEMORY 322722 YMBOL 
AFTER 246 

20 DIM =tá. 


30 FOR c=8 TO £:FEAÁD at: 
¿NEXT 

d0 c=b:sum=9 

56 FOR n=40660 TO desos 
¿20 FEAD atru=YALC* E +ad) 
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0 sumesuomt 2 PORE nm. 
36 1F ¿p+1-499993 MOD 108<58 GOTO 110 

20 1F sumiigzícó THEN FRINT**ERROR IN DAT 
As (CHEF GPRINT Comprobar lineas? 260+ 
100=rc "a *p276+100=% END 

100 sum=8:0=c+1 
118 NET 

129 IF sumizzxfci THEN FPRINT*=*ERRGE IN DÁ 
Tar" ¡CHEF FERINT Comprobar linea 2500” 
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CHECESUMS 


DATA 280A,2EC6,2031,2803,206B,3027,0 


Da * HACHINE E 


209 DATA 4 
210 DATA 3F 
220 DATA 
230 DATÁ 6% 
zd0 DATÁ AL 
230 DATA 
229 DATÁ 
¿76 DATÁ ¿PELÚTA 
250 DATA VE¿,B7,LO, 250,0, 23,5 
220 DATA D0,66,04,47,L25,E3.. 
300 DATA COD, AE,*C,13,E1,<5,5 
210 DATÁ 05,200,450, BB,EB.C0,A 
330 DATA 23,10,F0,F5,20,%6,2%, 

F 

L. 

E 


DATA 06,05,1F,CB,15,10, 
DATA 20,F3,20,0%,B%,Fl, 
DATA C9,FE,06,20,20,06,2%,00, 
CATA 00,56,04,20,25,D00,71E,073,74,4F 
DATÁ CO, 1A4,20,4F,51,16,F0,47,DD, 7 

DATA 04,00,4E.05,00,71,4F,EB,21,00 
DATA 909,D0,7E,02,87,20,435,05.D5,S5E 
CATA 08,F5,C05,D5,7E,23,B6,23,LB,7 

CATA 25,073,21,4 .12,11,:0,04,14 
DATA 7A,Eé£,07,20,0d4,74,D2,03,537,10 
DATA ES,D1,74,06,02,57,01,F1,30,20 
DATA 05,74,06,40.57,7B,06,30,3-,>50 
DATA 04,14,74,E6,07,20,0d,7A,D06,03 
DATA 57,00,20,BF,01,01,SE,0F,F3,03 
DATA 05,DO0,7E,00,30,746,30,20,FC,5E 
"DATA 08,F5,C05,05,7E,23,B6,23,LB, rd 
CATA 23,03,21,00,00,EB,466,EB,12,11 
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DATA 20, 
CATA 52, 
DATA : 
DATA 58,5 
cATA , Bo, 
CATÁ 230,28, 
DATA 0% 
CATÁ 2 
DATA 
DATA 
DATÁ ES, 25, 
DATA 0%4,2d,TC, 
CATA á A , 
DATA 
DATA «Fl, 
CATÁ CB,é 
68 DATA 02,67, , 
270 DATA £E,902,20,0D.,2 
¿230 DATA 06,02, 47,C0 : 
209 DATÁ 05,0E,02,E5,05,CB,SE, 
GATA Sd, E : 
DATA 20, 
DATA 0d, 
DATA 82, 
 DATÁ Y 
ATA » . : , 20 
DATA E, dE,068,00,5E,92 
DATA .52E,94,00,54,05,05,0%2 
50 DATA C5,C0,C0,BB,C01, 7%, 
DATA ES AIN TN DR 
IATA ¿+3E,10,2B,30,2 


| 
A 


0 e 


CACA CA LALA LA A 
5 


O md 


ASAS ESOS SSA 


1 2] E 


do 
f 
a 


z 
6d 


e 
A 


A 


78 


Editor 


ábMás 1.1 


Copyright 18232 PICTURESQUE 


+Cd0 


ecod 


PL 261dAYL 
S14S SITES 
+*Ldó6 COniear: 


E 


5.02 

6 00 

Y FEOS 
2 LO 

¡A DDEE96 
'D Dil 
0 TE 


ássemb 


0001 


[5] 


vb14 
00:0 
0070 
v0dé 
0078 
6020 


LOGEXT 
CURSOR 
MATRIX 
MTABLE 
ROMENA 
ROMO IS 
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DEFL 
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La 
CÁLL 
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DEF 
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DEFM 
DEFBE 
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DEFA 
EF 
DEFBE 
DEFE 
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EET 
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Lo 
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46000 
vBcodH 
Ge 73H 
OGRRÁSA 
GRRÁEH 
0R02H 
0RY0 7H 
6RESÁH 
6BC1AH 
0BcddH 
Ó6BECOH 
eBEFLH 
BE, TABLE 
HL, SPÁLE 
LOGEXT 


NÁMETE 
INVERT 
EXPLOD 
LWRAP 
EWRAP 
GRPNTd 
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"TT 4+50H 
EXPLOD" 
EX+30H 
“URAPLEF" 
'T*+50H 
'URAPRIGH" 
'T*+250H 
'“PRINTEOU" 
E e+E0H 
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INE E 

Lo E, CHL5 
INE HL 

Lo O. 2HLA 
Lo Lost 
LO H,í 
A LO B.Á 
1d NETEORE PUSH A 

E 5 2500 PUSH HL 
“CA COFSOBA e516 CÁLL CURSOR 
STAS 1A do7ó LO á, ¿DE7 
“Cd COAESC 03730 CÁLL INWCHE 
“Lar 13 95040 INE DE 
SAS 96 POF- HL 

DEC Ho 
SN 
DUÁNZ NRTCHR 
RET 

CHE PUSH E 
CALL MÁTEIZ 
EX DE.HL 
CÁLL MHTABLE 
Lc BEY 
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CALL EOMENA 
: LO C,É 
700 N¿TBYT LO A, 207 
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OUTs, PEEKs, POKEs 
y CALLs útiles 


El mamotrético título lo dice todo. Este capítulo está dedicado 
a un número de útiles rutinas y posibilidades que pueden ser 
accedidas mediante los comandos arriba indicados, todos estos 
comandos y su uso han sido ya explicados, pero únicamente 
dando un pequeño número de ejemplos. Aquí tenemos el resto. 


1) 


2) 


3) 


4) 


5) 


6) 


7) 
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Hay un número de sistemas para impedir que los demás 
tengan acceso a nuestros listados pero la mayoría están 
relacionados con la imposibilidad de 'romper' el programa. 
Este POKE permite romper el programa, pero no listarlo. 
Esto es debido a que POKE introduce un carácter de 
control en la primera línea del programa. 

Escribir la línea 1 de la forma siguiente: 1 REM*** 
Teclear ahora POKE d4c176,255 

A partir de este momento, tu programa debe ser imposible 
de listar. 


Un rápido CALL aquí para limpiar el buffer del teclado: 
CALL A£BFF9, £«C9, «1CED, 4«CF00. 


No sé cuántos de vosotros habréis encontrado molesto 
tener que establecer un LOAD o CAT cada vez que se 
quiere posicionar la cinta del cassette usando el botón de 
PLAY. OUT 512,6 habilita botón de PLAY, permitiéndote 
que lo uses nuevamente, mientras que OUT 512,0 lo 
deshabilita de nuevo. 


Mediante el comando OUT 256,N puede obtenerse una 
forma simple de scroll horizontal, donde N es la posición 
del carácter. Prueba OUT 256,20 para hacer un 
desplazamiento desde el centro de la pantalla en modo 1. 
El scroll produce un efecto de rotación de la pantalla 
sobre su eje longitudinal, donde los caracteres que 
desaparecen por el lado izquierdo reaparecen por el 
derecho. 


Teclea CALL 4BB7E para anular el cursor de la pantalla. 
Para activarlo usa CALL «BB13. 


CALL 4BB13 es igual al comando BASIC: 

WHILE INKEYS$ = "": WEND 
Tanto la línea de programa como la llamada (CALL) 
esperan que sea pulsada una tecla. 


CALL «BD19 realiza una acción conocida como frame 
flyback. Esto simplemente da un mejor aspecto y un 
movimiento más suave a la animación de tus pantallas. 


Ensambladores y Lenguaje 
Ensamblador 


Te habrás dado cuenta que en este libro no únicamente están 
incluidos listados de BASIC, sino que también los hay en 
Lenguaje Ensamblador. Para aquéllos que no están 
familiarizados con este lenguaje, existe un método simple de 
explicar las distintas instrucciones en Código Máquina que hay 
disponibles. Por ejemplo, una instrucción que hace regresar al 
ordenador desde el Código Máquina al BASIC. Esta instrucción 
es mostrada en los programas cargadores BASIC como Cc9 
cuando estos programas utilizan la numeración hexadecimal 
(base 16). El código equivalente en ensamblador para esta 
instrucción es RET, que obviamente es una abreviatura de 
RETURN. Echa un vistazo a las listas en Lenguaje Ensamblador 
y comprobarás que esta instrucción está en penúltimo lugar. 


Si quieres obtener más información sobre el Lenguaje 
Ensamblador, te sugiero que mires una de las listas mencionadas 
en la bibliografía. Lo que sí estoy interesado en mencionar aquí 
es otro grupo de instrucciones. Este grupo puede ser visto en los 
listados de Lenguaje Ensamblador y son instrucciones tales 
como END, ORG, DEFM y PRNT, todas ellas son comandos 
usados por el ensamblador (el programa que te permite escribir 
Código Máquina en Lenguaje Ensamblador). El uso de un 
ensamblador hace más fácil la escritura del Código Máquina, así 
como seguir el programa escrito por otra persona. 


Estos comandos del ensamblador, o directores como también 
son conocidos, ayudan al programador de Código Máquina y 
deben ser incluidos en los listados en Lenguaje Ensamblador. 
Para que no te confundas cuando mires un listado en Lenguaje 
Ensamblador, abajo tienes detallados estos comandos: 


ORG END EQU DEFL DEFB  DEFW 
DEFW DEFS DEFM PRNT ENT 
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BIBLIOGRAFIA 


Entre los numerosos libros que tratan la programación en 
Código Máquina del Z-30 en general y específicamente del 
Amstrad, nosotros hemos elegido algunos títulos para consultar. 


Amstrad Machine Language For The Absolute Beginner 
de Joe Pritchard, Melbourne House. ISBN 0 86161 1934 


En nuestra opinión, la mejor guía para iniciarse en este sujeto 
(¡por supuesto, antes de que la nuestra fuese publicada!). En 
serio, el libro es una completa guía para el que se inicia en 
Código Máquina con el Amstrad. A diferencia de otras muchas 
guías de Código Máquina, ésta es muy específica para el 
Amstrad, incluyendo un número de las 'llamadas' (calls) 
disponibles en la ROM. El libro tiene una pobre presentación; 
justo los listados de impresora y algún que otro diagrama. En el 
texto hay algunos fallos, pero lo más preocupante son los 
errores existentes en los listados de programas. A pesar de 
todo, una buena compra para aquéllos que deseen ir más allá de 
los primeros inicios con el Código Máquina. 


Amstrad CPC 464 Machine Code 
de Steve Webb. Virgin Books. ISBN 0 36369 082 3 


Este delgado libro es ideal para el novel en Código Máquina 
¡quién piensa que PUSHing y POPing son formas nuevas de 
baile! En lugar de lanzarse dentro de complicadas explicaciones 
sobre los conceptos y principios del Código Máquina, el libro se 
mantiene dentro de un nivel más práctico introduciéndote en los 
Z30 Op codes (códigos de operación de Z30) que tú puedes usar. 
Es posible que puedas necesitar otro libro para suplementar las 
enseñanzas de éste, pero para el principiante total merece la 
pena considerar su compra. 


The Concise Firmware Specification 
Order Code: SOFT 153. Amsoft. 


Con un precio de 20 libras (unas 4.000 Ptas.) se trata de un 
folleto de hojas sueltas que puede hacerte pensar que Amsoft no 
trata bien al público. No es este el caso. Por ese dinero, 
obtienes una referencia técnica completa donde están todos los 
detalles de las rutinas contenidas en la ROM, cómo trabajan y 
qué parámetros requieren. Un Número de rutinas de nuestro 
libro habrían sido bastante más difíciles de escribir si no 
hubiésemos tenido esta guía. 
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Disposición del Teclado 


El siguiente diagrama muestra el código numérico de todas las 
teclas: 


TECLADO PRINCIPAL 


55]64[65]57]56]49[48]41]40/33[32[25[24/16 [79] 


TECLADO NUMERICO 


TECLAS DE CURSOR 
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EN CODIGO 


MAQUINA 
Amstra 


EL BASIC es el lenguaje para ordenadores más sencillo de 
aprender, y usualmente es dominado de forma rápida por el 
programador novel. Sin embargo, al tiempo que progresan, muchos 
programadores encuentran que partes de sus programas que 
requieren una rápida ejecución, tales como desplazamientos 
rápidos de la pantalla, no pueden ser realizadosen BASIC. 

Ahora tú podrás controlar el verdadero poder de tu Amstrad 
mediante el Código Máquina conimpresionantes resultados. 

Este libro contiene 20 rutinas, cada una escrita de forma que 
pueden ser incorporadas en tus propios programas con el mínimo 
esfuerzo. Sin que sean necesarios conocimientos previos de lenguaje 
Ensamblador ni Código Máquina. 

Cada rutina es totalmente descrita mediante ejemplos y 
explicaciones de su uso. Con este libro serás capaz de lograr 
extraordinarios efectos tales como suaves desplazamientos de la 
pantalla, rotación de caracteres multicolores, nuevos comandos de 
sonido, caracteres itálicos y más efectos -rutinas que en BASIC son 
imposibles de realizar, y que mejorarán tus “cansados” programas, 
tanto si sonjuegos, educacionaleso aplicaciones de negocios. 


Sobre nosotros 

Son bienvenidas las solicitudes ISBN 84-86381-12-6 
de catálogos, así como otro tipo 

de propuestas. 
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